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3 



.REM 



4 
5 

7 IDENTIFICATION 

8 

9 

10 

11 PRODUCT CODE 



AC-9431D-MC 

CZTRBDO TR79 UTILITY PROGRAMS 
FEBURARY 1982 



13 PRODUCT NAME 

14 

15 PRODUCT DATE 

17 MAINTAINER: MERRIMACK DIAGNOSTIC ENGINEERING 

18 

19 

20 

22 THE INFORMATION IN THIS DOCUMENT IS SUBJECT Tf) CHANGE WITHOUT NOTICE AND 

23 SHOULD NOT BE CONSTRUED AS COMMITMENT BY DIGITAL EQUIPTMENT CORPORATION. 

24 DIGITAL EQUIPTMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 

25 THAT MAY APPEAR IN THIS DOCUMENT. 

27 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 

28 MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 
29 

30 DIGITAL EQUIPTMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 

31 RELIABILITY OF ITS SOFTWARE ON EQUIPTMENT THAT IS NOT SUPPLIED BY DIGITAL. 

32 
33 

34 COPYRIGHT (C) 1976,1982 

35 DIGITAL EQUIPTMENT CORPORATION. MAYNARD MASS. 
36 

37 
38 
39 
40 
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SEQ 2 



.RE" 



TR79 UTILITY PROGRAM 



TABLE OF CONTENTS 



SECTION 


SUBJECT 


1. 


ABSTRACT 


2. 


REQUIREMENTS 


3. 


LOADING PROCEDURE 


4. 


STARTING PROCEDURE 


5. 


RESTRICTIONS 


6. 


CONSOLE SETTINGS 


7. 


OPERATION 


8. 


LISTING 



1. ABSTRACT 

THIS PROGRAM IS IN TWO PARTS. AND IS INTENDED TO PROVIDE THE USER WITH 
A TOOL FOR TROUBLE-SHOOTING THE TR79 MAGTAPE SUBSYSTEM ON A PDP-11 
COMPUTER SYSTEM. THE FIRST PART OF THE PROGRAM ALLOWS THE USER TO 
GIVE THE MAGTAPE , COMMANDS, TO SIMULATE USER ROUTINES BY MERELY INSERTING 
THESE COMMANDS IN THE CORE LOCATIONS PROVIDED. THE USER MAY EXECUTE 
ONE OR SEVERAL INSTRUCTIONS IN ANY LEGAL SEQUENCE. WHILE THE CODE FOR THE 
DRIVER IS SIMPLE AND USES NO INTERRUPTS, DUE TO THE DESIGN OF THE 
HARDWARE CERTAIN ERROR CONDITIONS MUST BE IDENTIFIED IN ORDER TO 
PREVENT MISINTERPRITATION OF THE DESIRED RESULTS. 

PART TWO OF THE PROGRAM CONSIST OF SELF CONTAINED ROUTINES TO PERMIT 
THE USER TO SET UP AND CHECK THE DELAYS CONTAINED WITHIN THE TR79 
CONTROLLER, BY USING THE SWITCH REGISTER TO SELECT THE APPROPRIATE 
ROUTINE. 
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SEQ 3 



.REM 



2. REQUIREMENTS 

2.1 HARDWARE 

A. PDP-11 PROCESSOR 

B. TR79 MAGTAPE TRANSPORT (HP-7970E DRIVE) 

C. TR79F MAGTAPE CONTROLLER 



2.2 STORAGE 

THIS PROGRAM REQUIRES A MINIMUM OF 4K OF CORE 



3. LOADING 

USE STANDARD BINARY LOADING PROCEDURE 



4.0 STARTING PROCEDURE 

THERE ARE TWO STARTING ADRESSES THAT MAY BE USED 

4.1 200- (8): LA 200 SR=0 A START AT THIS ADRESS WILL RESULT IN A PROGRAMMED DEFAULT 

OPERATION OF A WRITE FORWARD WITH A WORD COUNT OF -20 AND A DATA PATTERN 
OF ALL VS. TO MODIFY THESE PARAMETERS SEE SECTION 7.1 PROGRAM OPERATION 
NOTE: ALSO SEE SECTION 5.0 PROGRAM RESTRICTIONS, THE DEFAULT OF WRITE 
WILL NOT WORK IF TAPE IS AT B.O.T.. 

4.2 204 (8) LA 204 SR=0 A START AT THIS ADRESS WILL EXECUTE THE SPECIALLY DESIGNED 

SETUP ROUTINES TO ALLOW THE USER TO SETUP OR VERIFY THE DELAYS WITHIN 
THE TR79 CONTROLLER. 

NOTE: ALLWAYS USE SCRATCH TAPES WHEN TAPE MOTION IS INDICATED. 
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5.0 RESTRICTIONS 



5.1 A. 



B. 



.REM 



A PSEUDO-OP OF A 20(8) HAS BEEN PROVIDED TO ALLOW THE USER TO 
POWER CLEAR BETWEEN OPERATIONS IF DESIRED. HOWEVER THE PROGRAM 
CAN RECOVER FROM ERRORS. THIS IS A POWER CLEAR AND TAKES 900 
MI LI -SECONDS TO COMPLETE. 

ANY ATTEMPTS TO ISSUE INSTRUCTIONS TO THE CONTROLLER WHILE A 
POWER CLEAR IS IN PR06RESS WILL RESULT IN ILLEGAL COMMAND BIT 
SETTING WHICH WILL INHIBIT ANY FURTHER INSTRUCTIONS FROM BEING 
EXECUTED. A POWER CLEAR IS ALSO GENERATED FROM A BUS INIT WHICH 
OCCURS FROM A RESET INSTRUCTION. THE DRIVER USES NO RESETS. (USE 
CAUTION IF YOU MODIFY THE DRIVER PACKAGE.) 

THE TR79 CONTROLLER CHECKS FOR CERTAIN ILLEGAL FUNCTIONS DUE 
TO TAPE POSITION OR STATUS, THE DRIVER PACKAGE WILL CHECK THESE 
CONDITIONS AND HALT AT APPROPRIATE LOCATIONS WITH MEANINGFULL 
DATA DISPLAYED ( SEE SECTION 7.2 ERROR CHECKS). 
THE LISTED CONDITIONS WILL P.ODUCE ILLEGAL COMMAND ERRORS: 

1. ATTEMPT TO WRITE DATA FROM LOAD POINT WITHOUT AN I.D.B. 

2. ATTEMPT TO WRITE A TAPE MARK FROM LOAD POINT 

3. ATTEMPT TO MOVE TAPE IN REVERSE FROM LOAD POINT 

4. ATTEMPT TO WRITE AN I.D.B. AT OTHERTHAN LOAD POINT 

5. ATTEMPT TO WRITE DATA WITH THE WRITE RING REMOVED 

6. ISSUE A COMMAND WHILE THE MAGTAPE IS NOT READY 

7. ISSUE A COMMAND WHILE THE CONTROLLER IS NOT READY 

8. ISSUE A COMMAND WITH INHIBIT BIT SET 

9. ILLEGAL FUNCTION CODES 00,03.05.06.11,12,14 



C. THE PROGRAM DOES NO DATA CHECKS ON READ OR WRITE DATA TRANSFERRED. 

IT IS THE RESPONSIBILITY OF THE OPERATOR TO MANUALLY EXAMINE THE BUFFER 
LOCATIONS TO DETERMINE IF THERE HAVE BEEN ANY PICKED OR DROPPED 
BITS IF DESIRED. 

D. NOTE: HARDWARE OPERATION OF THE TR-79 SPECIFIES THAT EACH CORE 

WORD LOCATION CONTAIN ONE BYTE (BITS 0-7) OF DATA AND PARITY 
(BIT 8). THEREFORE WHEN CALCULATING THE WORD COUNT FOR A 
TRANSFER THE ACTUAL NUMBER OF CORE BYTE LOCATIONS ACCESSED IS 
EQUAL TO 2X THE NUMBER LOADED IN THE WORD COUNT REGISTER. 
ALSO NOTE THAT THE CONTROLLER DOES NOT APPEND PARITY TO THE 
BYTE BEFORE DOING A WRITE OPERATION. PARITY MUST BE CORRECT 
IN CORE OTHERWISE ERRORS WILL OCCUR ON 
THE TRANSFER (ODD PARITY) IS ALWAYS USED. 
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.REM 



6.0 CONSOLE SWITCH SETTINGS 

SW 15 = 1 STOP AFTER EACH OPERATION (ONLY WITH START 
0 PROCEED 



200) 



SW 14 = 1 STOP AT THE END OF EACH PROGRAM PASS (ONLY WITH START 200) 
0 PROCEED 



SW 7 = 1 ENABLE FOR DELAY ROUTINES (EXECUTE ROUTINE 
0 ALLOW SELECTION OF DELAY ROUTINES WITH SW 0- 



ONLY WITH START 204) 
•3 



6.1 



SW 0 THU 3 = DELAY ROUTINE TO BE EXECUTED (ONLY WITH START 204) 
DELAY SETUP TABLE 



-5Q7TW-T — BKX? T~TODOEE"T~EOTjXTTlW"T"PRTRT"T"TRPOT"T 

SETING I NAME I TYPE I I PAGE I PIN 



I 

00 I NO-OP 
I 

01 I P CLR 
I 

02 I P CLR OFF 
I 

03 I ERROR CLK 
I 

04 I WRITE ENAB 
I 

05 I BUFF CONT 
I 

06 I END WR DAT 
I 

07 I 1ST WD REO 
I 

10 I ERASE 
I 

11 I WRITE IDB 
I 

12 I 106 TIMING 
I 

13 I ABORT 
I 

14 I BUSY DELAY 
I 

15 I GO BIT DEL 
I 

16 I M.S.D. 
I 

17 I NO-OP 



-I- 
I 
I 

I M-302 
I 

I H-306 
I 

I M-302 

I M-302 
I 

I M-304 

i H-302 

I M-302 
I 

I M-304 

I M-302 

i M-302 

l M-306 
I 

I M-304 
I 

I M-304 
I 

I M-302 

I 

I 



C-06 
0-09 
C-10 
C-10 
B-18 
A-16 
A-22 
B-18 
A-16 
D-13 
A-25 
B-18 
B-18 
A-22 



T02-2 
T04-1 
T04-2 
T09-3 
T11-1 
T11-1 
T11-2 
T09-3 
T09-1 
T09-1 
T09-3 
T05-1 
T06-1 
T09-2 



I 
I 
I 

I H2 
I 

I H2 
I 

I H2 
I 

I M2 
I 

I El 
I 

I M2 
I 

I H2 
I 

I SI 
I 

I H2 
I 

I H2 
I 

I H2 
I 

I R1 
I 

I D1 
I 

I M2 

I 
1 



'OOTPOri TIME" 

PIN 



F2 
12 
F2 
T2 
J1 
T2 
F2 
M1 
F2 
F2 
T2 
P1 
H1 
T2 



20 MILI SEC. 
900 MILI SEC. 
200 NANO SEC. 
40 MICRO SEC. 
1 MICRO SEC. 
18 MICRO SEC. 
100 MICRO SEC. 
1 MICRO SEC. 
17 MILI SEC. 
75 MILI SEC. 
1.5 SEC. 
100 NANO SEC. 
1 MICRO SEC. 
900 MILI SEC. 
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286 
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291 



SEQ 6 



294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 



$$ 



$$ 



$$ 



.REM 



***************************** 

* DELAY CONDITION NOTES * 
***************************** 



6.2 DELAY $$=FIXED DELAYS 

NO OPERATION PERFORMED WAITING SWITCH SELECTION AND ENABLE 

POWER CLEAR PERFORMED NO TAPE MOTION DELAY PULSE IS POSITIVE GOING 

POWER CLEAR PERFORMED NO TAPE MOTION DELAY PULSE IS POSITIVE GOING 

NO TAPE MOTION, PROGRAM FORCES AN ERROR WITH THE BGL BIT 
IN THE TR STATUS REGISTER (BIT 11) DELAY PULSE IS POSITIVE GOING 

TAPE MOTION, PROGRAM DOES A SHORT ERASE WHILE MOVING TAPE 
TAPE MOTION IS NOT READILY NOTICIBLE WHILE EXECUTING THIS ROUTINE 
DELAY PULSE IS POSITIVE GOING 

TAPE MOTION, PROGRAM DOES A 10 BYTE WRITE, PROGRAM CHECKS 
FOR LOAD POINT AND WILL WRITE AN I.D.B. BEFORE ENTERING THE 
DELAY LOOP. DELAY PULSE IS POSITIVE GOING 



00 
01 
02 
03 

04 

05 

06 
07 
10 

11 

12 
13 

$$ 14 



15 
16 

17 



SAME CONDITIONS AS 05 
SAME CONDITIONS AS 05 



DELAY PULSE IS POSITIVE GOING 
DELAY PULSE IS POSITIVE GOING 



TAPE MOTION, PROGRAM WILL CHECK FOR LOAD POINT THEN DO A 
MAXIMUM ERASE TO MAKE THE OPERATION CONTINIOUS THE PROGRAM 
WILL CLEAR THE ERASE COUNT BEFORE THE OPERATION IS DONE. 
DELAY PULSE IS NEGATIVE GOING 

TAPE MOTION, PROGRAM WILL CONTINIOUSLY WRITE THE I.D.B. 
DELAY PULSE IS POSITIVE GOING 

SAME CONDITIONS AS DELAY 11. DELAY PULSE IS POSITIVE GOING 

PROGRAM WILL REWIND TAPE TO L.P. AND FORCE AN ERROR BY DOING 
A WRITE DATA. DELAY PULSE IS POSITIVE GOING. 

TAPE WILL MOVE TO L.P. , AND DO A MAXIMUM ERASE. 

WHILE THIS IS HAPPENING PROGRAM WILL LOAD THE COMMAND 

REGISTER TO PRODUCE A LD CTRL PULSE. DELAY PULSE IS POSITIVE GOING 

SAME CONDITIONS AS DELAY 04. DELAY PULSE IS NEGATIVE GOING 

PROGRAM WILL MOVE TAPE TO E.O.T. AND ATTEMPT TO DO A FAST 
FORWARD TO PRODUCE THE MOTION STOP DELAY. DELAY IS POSITIVE. 
NOTE: AFTER COMPLETION OF THIS ROUTINE A MANUAL REWIND 
SHOULD BE PERFORMED. 

THIS IS A NO OPERATION SAME AS 00 
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SEQ 7 



7.0 OPERATION 



THE PROGRAM IS QUITE SIMPLE HOWEVER IT DOES REQUIRE KNOWLEGE OF THE 
Of THE TR-79 MAGTAPE SYSTEM AND AN UNDERSTANDING OF THE PROGRAM 
FUNCTIONS AND RESTRICTIONS. THE CODE HAS BEEN ASSEMBLED IN IMMEDIATE 
AND ABSOLUTE MODES USING PC ADRESSING. IT IS RECOMMENDED THAT THE 
USER READ AND UNDERSTAND THE RESTRICTIONS AND OPERATIONS SECTIONS. 

THE DRIVER PROGRAM (LOAD ADRESS 200, START SWITCHES =0) CAN BE MADEB 
TO EXECUTE ANY LEGAL SEQUENCE OF OPERATIONS (SEE SECTION 7.3) BY 
INSERTING THE COMMANDS IN THE OPERATIONS TABLE. (CORE LOCATIONS 722 
THRU 766). EACH COMMAND SHOULD OCCUPY ONE CORE LOCATION BITS 0-4 
ONLY. THE TOTAL NUMBER OF COMMANDS TO BE EXECUTED SHOULD THEN BE ENTERED 
IN LOCATION 720. THE PROGRAM PARAMETERS MAY BE ALTERED BY CHANGING 
THE APPROPRIATE CORE LOCATIONS (SEE SECTION 7.1). PROGRAM DEFAULT 
IS A SINGLE WRITE COMMAND OF 20 WORDS OF ALL 1'S FROM LOCATION 2700 
WITH MINIMUM DELAY BETWEEN OPERATIONS. THIS DEFAULT WILL NOT WORK 
IF THE TAPE IS POSITIONED AT LOAD POINT. 

THE DELAY PROGRAM (LOAD 204, START SWITCHES=0) WILL EXECUTE THE DELAY 
SET-UP ROUTINES TO ALLOW SET-UP OF ALL THE DELAYS IN THE TR-79 CONTROLLER 
THE PROGRAM HAS AN ACTIVE SWITCH REGISTER AFTER STARTING. BY SELECTING 
THE DESIRED DELAY ROUTINE IN SWITCH REGISTER 0 THRU 3, AND THEN SETTING 
BIT 7 =1 THE ROUTINE WILL BEGIN EXECUTION. TO CHANGE THE DELAY ROUTINE 
SET BIT 7=0, WAIT A FEW SECONDS FOR COMPLETION OF THE ROUTINE, THEN 
ENTER THE NEW ROUTINE NUMBER IN BITS 0-3 AND SET BIT 7=1. THE DELAY 
PROGRAM CONTAINS NO ERROR HALTS, HOWEVER IF ERRORS ARE DETECTED THE 
PROGRAM WILL INFORM THE USER BY OUTPUTTING A BELL CODE TO THE CONSOLE 
TERMINAL. THE PROGRAM WILL THEN DO A CONTROL RESET AND CONTINUE. 

NOTE: THE PROGRAM BUILDS THE CORE DATA BUFFERS EACH TIME THE PROGRAM 
IS STARTED. THE PROGRAM DEFAULT IS LOCATION 2700 HOWEVER 
THIS HAY BE CHANGED BY MODIFYING LOCATION 242 IN THE CORE 
BUILD ROUTINE TO PUT THE BUFFERS ANYPLACE IN THE LOWER 28*. 
THIS PROGRAM DOES NOT PROGRAM THE KT AND DOES NOT RELOCATE 
ABOVE THE LOWER 28K OF MEMORY. 
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7.1 PROGRAM PARAMETER LIST AND CORE ADRESSES 



SEQ 8 



PARAMETER LOCATION 



DESCRIPTION 



EXTENDED 700 
CORE ADDRESS 



UNIT SELECT 702 



WORD COUNT 



704 



READ ADRESS 706 



WRITE ADRESS 710 



ERASE COUNT 712 



OPERATION 
DELAY 

OPERATION 
DELAY MULT. 



OPERATIONS 
NUMBER 

OPERATIONS 
TABLE 



714 
716 

720 



722 

THRU 

766 



BITS 12 AND 13 OF THIS LOCATION REPRESENT 
X8A 16 AND XBA 17 OF THE TR CONTROL REGISTER 
THESE BITS ALLOW RELOCATION OF THE DATA BUFFER. 

BITS 8+9 IN THIS LOCATION REPRESENT THE 
UNIT NUMBERS OF THE TAPE DRIVES. A MAXIMUM 
OF 4 DRIVES PER CONTROLLER DEFAULT IS UNIT 0. 

THIS IS THE 2'S COMPLIMENT OF THE NUMBER 
OF WORDS TRANSFERRED. SINCE EACH BYTE OCCUPIES 
A WORD LOCATION THE NUMBER OF CORE LOCATIONS 
USED IS 2X THE WORD COUNT. PROGRAM DEFAULT 
IS -20 WORDS. 

CONTAINS ADRESS OF THE READ BUFFER. PROGRAM 
DEFAULT IS LOCATION 6700. 

CONTAINS ADRESS OF THE WRITE BUFFER. THE 

PR06RAM CONTAINS 4 WRITE PATTERNS CONTIGIOUS IN CORE. 

LOCATION 2700 = ALL 1'S PATTERN 

LOCATION 3700 = ALTERNATE 1 AND 0 BYTES 

LOCATJOnf 4700 = ALTERNATE 1 AND 0 BITS 

LOCATION 5700 = SLIDING 1 BIT PATTERN 

PROGRAM DEFAULT IS LOCATION 2700 

CONTAINS A 2'S COMPLIMENT NUMBER 
PROPORTIONAL TO THE AMOUNT 
OF TAPE TO BE ERASED. THIS NUMBER IS LOADED 
INTO THE WORD COUNT REGISTER PRIOR TO AN 
ERASE COMMAND BIENG PERFORMED. PROGRAM DEFAULT 
IS 77777 . EACH INCREMENT CAUSES .02 INCHES 
OF TAPE TO BE ERASED. 

CONTAINS A NUMBER USED IN A TIMER BETWEEN 
OPERATIONS DEFAULT =000001 MINIMUM DELAY 

THIS IS USED IN CONJUNCTION WITH LOC. 714 
AS A MULTIPLIER IN THE DELAY TIMER. DEFAULT 
IS 000004 MINIMUM DELAY. INCREASING THIS 
NUMBER WILL ALLOW MORE TIME BETWfEN OPERATIONS. 

THIS LOCATION CONTAINS THE NUMBER OF OPERATIONS 
TO BE PERFORMED IN THE OP TABLE. DEFAULT = 1 . 

THIS IS THE BEGINNING OF THE OPERATIONS TABLE. 
ALL OPERATIONS TO BE PERFORMED SHOULD BE 
ENTERED IN THE DESIRED SEQUENCE IN THIS TABLE. 
DEFAULT IS A WRITE OPERATION. 
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7.2 ERROR CHECKS AND HALTS 
LOCATION DESCRIPTION 



SEQ 9 



1320 



1332 



1350 



1406 



1432 



halt here if there was an attempt to execute an illegal 
function, due to tape position or sequence of instructions, 
the illegal command is displayed in ro when the 
program ha. ts. see section 5.18 for ill egal functions 

halt here if there was a hardware error on the previous operation 
if it 13 desif.to to bypass the error flag nop this location, 
the command and sta.^s register should be examined at 
this time fc determine the probable cause of the error, 
pressing continue will clear the error by executing a 
control reset. 

halt here if your operation table loc. 722-766 has an 
operation that is not defined in the legal function 
codes. ro has the bad code in it. check your table 
in locations 722 thru 766. 

halt here if bit 15 of the swr is set. this is the halt 
between instructions. 

halt here if bit 14 of the swr is set. this is the halt 
between passes of instructions in the op table. 
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431 








432 








433 








434 




7.3 TABLE 


OF LEGAL FUNCTIONS AND CODES FOR USE IN OPERATIONS TABLE (LOC 722-766) 


435 




•• 




436 




CODE. 


FUNCTION 


437 








438 




0(T" 


**** ILLEGAL **** 


439 








440 




oi: 

# 


WRITE DATA (ILLEGAL IF EXECUTED FROM LOAD POINT) 


441 






442 




02 


READ ( DATA, TAPE MARK OR I.D.B. ) 


443 








444 




03 


**** ILLEGAL **** 


445 








446 




04 


SPACE REVERSE (ILLEGAL IF ISSUED FROM LOAD POINT) 


447 








448 




05 


**** ILLEGAL **** 


449 








450 




06 


**** ILLEGAL **** 


451 








452 




07 


ERASE 


453 








454 




10 


REWIND (TAPE MOVES AT 160 I.P.S.) ILLEGAL IF ISSUED FROM LOAD POINT 


455 








456 




11 


**** ILLEGAL **** 


457 








458 




12 


**** Illegal **** 


459 








460 




13 


FAST FORWARD (TAPE MOVES FORWARD AT 160 I.P.S.) 


461 








462 




14 


**** ILLEGAL **** 


463 








464 




15 


WRITE I.D.B. (ILLEGAL IF ISSUED AT OTHER THAN LOAD POINT) 


465 








466 




16 


WRITE TAPE MARK (ILLEGAL IF ISSUED FROM LOAD POINT) 


467 








468 




17 


OFFLINE (REQUIRES MANUAL INTERVENTION) 


469 








470 




20 


CONTROL RESET ( PROGRAM PSEUDO OP ) 


471 








472 









r7Tfifir> dii 

V. L 1 noy ."II 


1 R-MDU-R1 


HI J 




474 

H 1 H 








476 




H 1 1 




4 /R 
Hi O 




479 

Hit 




4R0 




4R1 

HO 1 


000000 

vvvWv 


48? 

HOC 




4RX 

HO J 




4R4 

HOH 




4R5 

HO J 




4R6 

HOO 




4R7 

HO 1 




4RR 

HOO 


000000 

VvvvvV 


4R9 

HO 7 


000001 


l on 


00000? 


491 


00000? 


40? 

HTC 


000004 

vvvvvH 


HT J 


000005 


494 


000006 

VV v WW 


405 

HT J 


000007 


4 OA 

HTU 




497 




498 

HTO 




499 

H 7 7 




500 




501 




50? 
jvc 




50? 


164000 


504 

JvH 


16400? 


505 


164004 


506 


164006 


507 




50R 

JUO 




509 

JUT 




510 




51 1 




51 ? 




51 ? 


\ f I f f w 


514 

J 1 H 


177570 


515 




J * O 




51 7 




51R 

J 1 o 




519 

J 1 T 




5?0 

JCv 




5?1 


i 775A4 

Iff Jul 


5?? 


1 77566 


523 




524 




525 




526 




527 
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8. PROGRAM LISTING 



SEQ 11 



•ENABLE A8S.AMA 



.TITLE TR79 UTILITY DRIVER 
.ASECT 



*********************************** 

* GENERAL REGISTER DEFINITIONS * 
*********************************** 

R0=X0 
R1=X1 
R2=X2 
R3=X3 
R4=X4 
R5=X5 
SP=X6 
PC=X7 



******************************** 

* TR79 REGISTER DEFINITIONS * 
******************************** 



TRCOfl-1 64000 
TRSTAT*164002 
TRWC=1 64004 
TRBA=1 64006 



*********************************** 

* PROCESSOR REGISTER DEFINITIONS * 
*********************************** 



PSW=1 77776 
SyR=177570 



********************* 

* TTY REGISTERS * 
********************* 

TTSTATsI 77564 
TTBUF=1 77566 



t 
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528 
529 
530 
531 
532 
533 
534 
535 

536 000000 

537 000200 
538 

539 
540 
541 
542 
543 
544 
545 
546 
547 

548 000200 

549 000200 000137 000230 

550 000204 005237 000356 

551 000210 000137 000230 

552 000214 000777 

553 000216 000777 

554 000220 000400 

555 000222 000777 

556 000224 000525 

557 000226 000652 

558 000230 012701 000214 
55 r 000234 012703 000216 

560 000240 012702 002700 

561 000244 012700 177400 

562 000250 011122 

563 000252 005200 

564 000254 001403 

565 000256 011322 

566 000260 005200 

567 000262 001372 

568 0C0264 062701 000004 

569 000270 062703 000004 

570 000274 022701 000230 



SEO 12 



****************** 

* TRAP CATCHERS * 
****************** 



.=0 

.REPT 200 

.♦2 

HALT 

.ENDR 



************************************ 

* STARTS AND CORE BUFFER BUILD * 
************************************ 



BEGIN: 
BE6IN2: 



C0RB1L: 



X1 
X2 
X3 



X4: 



000777 
000777 
000400 
000777 
000525 
000652 
MOV 
MOV 
NOV 
MOV 
MOV 
INC 
BEO 
MOV 
INC 
BNE 
ADD 
ADD 
CMP 



.=200 

JMP afCORQIL 
INC WNORST 
JMP 3#C0RBIL 



.•NORMAL START 

.-SETS FLAG TO DETERMINE WHO STARTED 
.-START HERE FOR DELAY ROUTINES 



#214. R1 
#216.R3 
#2706.R2 
#1 77400. RO 
(R1),(R2)+ 
RO 
X4 

<R3),(R2>+ 
RO 
X3 

#4.R1 
#4.R3 
#230. R1 



SET UP PATTERN GENERATOR 
SET UP PATTERN GENERATOR 
SET UP ADRESS POINTER 
SET UP COUNTER 
DO IT 

KEEP TRACK OF HOW MANY 
CHECK FOR DONE 
DO IT 

KEEP COUNTING 

LOOP HERE 

NEXT PATTERN 

GO TO NEXT PATTERN 

DONE YET 



N 1 
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571 








0 






57? 








0 






573 


000700 

VVVJVv 


001361 






BNE 


X2 


Jf H 


0007ft? 

vVVJvC 


005000 




SL8: 


CLR 


R0 


575 


000304 


005001 






CLR 


R1 


576 


0007.0A 


005200 






INC 


«0 




000^10 


005201 




SLB1 : 


INC 


R1 


5^8 


00031 ? 


010022 






MOV 


R0.(R2)+ 


5 7 9 


000314 

WVV J 1 "t 


022702 


006700 




CMP 


#6700, R 2 


5PT 


000320 


001405 






BEQ 


SLBDON 


1 

J w l 


000322 


022701 


00001 1 




CMP 


#11 ,R1 


582 


000326 


001 765 






BEQ 


SLB 


583 


000330 

WW J JV 


006300 






ASL 


R0 


584 


000332 


000766 






BR 


SLB1 


585 


000334 


005737 


000356 


SLBDON: 


TST 


91N0RST 




000^40 

ww V J~ V 


001404 






BEQ 


ALD 


587 


000342 


005037 


000356 




CLR 


cWNORST 


588 

/OO 


000^46 


000137 


001462 




JMP 


a#DRTN 


589 


000352 


000137 


AA4 AAA 

001000 


ALD: 


JMP 


MS TART 


590 


000356 

VVV^/v 


000000 




NORST: 


000000 


591 














592 












************** 


593 












* STACKS * 


c 94 












************** 


595 














596 




000500 








.=500 


597 


000500 


n rt a a A 

000000 




SU8STK: 


000000 


598 








* 






599 








* 






600 








* 






601 




UUUOUU 








.=600 


602 








.•STACK: 


000000 


603 








* 






604 








• 






605 








• 







NOT DONE YET 

CLEAR THE PATTERN GENERATOR 

CLEAR THE PATTERN COUNTER 

SET BIT IN PATTERN 

KEEP COUNT 

PUT IT IN CORE 

SEE IF WERE FINISHED 

YES JUMP OUT 

CHECK ON THE BIT POSITION 
RESET THE SLIDING BIT 
SHIFT THE BIT 
LOOP AGAIN 

SEE WHERE THE START CAME FROM 
IF = 0 MUST HAVE BEEN START 200 
CLEAR IT 0UTF0R NEXT TIME 
NOT = GO TO 204 START 
GO TO A 200 START 
TEMPORARY LOCATION 



.-SUBROUTINE STACK 



;SET STACK HERE 
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606 






607 






608 






609 






610 






611 






612 




000664 


613 


000664 


000000 


6K 


000666 


000000 


615 


000670 


000000 


616 


000672 


000000 


617 


000674 


000000 


618 


000676 


000000 


619 


000700 


oooooo 


620 


000702 


000000 


621 


000704 


177760 


622 


000706 


006700 


623 


000710 


002700 


624 


000712 


177777 


625 


000714 


000001 


626 


000716 


000001 


627 


000720 


000001 


628 






629 






630 






631 






632 






633 


000722 


000001 


634 


000724 


oooooo 


635 


000726 


oooooo 


636 


000730 


oooooo 


637 


000732 


oooooo 


638 


000734 


oooooo 


639 


000736 


oooooo 


640 


000740 


oooooo 


641 


000742 


oooooo 


642 


000744 


oooooo 


643 


000746 


oooooo 


644 


000750 


oooooo 


645 


000752 


oooooo 


646 


000754 


oooooo 


647 


000756 


oooooo 


648 


000760 


oooooo 


649 


000762 


oooooo 


650 


000764 


oooooo 


651 


000766 


oooooo 


652 






653 






654 







SWRTEM 

TIMMUL 

COMTEM 

STTEM 

TEMPI 

TEMP2 

EXTCOR 

UNIT: 

WCNT : 

RADDR: 

WADDR: 

ERSCNT 

OPDLY 

OPDLX 

OPNUM 



0PT8L : 



.=664 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 

oooooo 

-20 

006700 
002700 
177777 
000001 
000001 
000001 



1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



B 2 



SEQ 14 



* PROGRAM CONSTANTS AND VARIABLES * 



TEHP ST0RA6E FOR SWITCH REGISTER 
CONTAINS DELAY MULTIPLIERS 
TEMP STORAGE FOR COMMAND REGISTER 
TEMP STORAGE FOR STATUS REGISTER 

TEMP STORAGE FOR THE NUMBER OF OPERATIONS TO BE PERFORMED 
TEHP STORAGE FOR THE OPERATION BIENG PERFORMED 
BITS 12 AND 13 ARE XBA 16AND XBA 17 
UNIT SELECT BITS 8 AND 9 
WORD COUNT 

START OF READ BUFFER 
START L* WRITE BUFFER 

CONTAINS LENGTH OF ERASURE WHEN DOING AN ERASE 

OPERATION DELAY 

OPERATION DELAY MULTIPLIER 

NUMBER OF OPERATIONS TO BE PERFORMED 



TABLE OF OPERATIONS TO BE PERFORMED MAX =23 * 



1ST OPERATION 
2ND OPERATION 
3RD OPERATION 
4TH OPERATION 
5TH OPERATION 
6TH OPERATION 
7TH OPERATION 
10TH OPERATION 
11TH OPERATION 
12TH OPERATION 
13TH OPERATION 
14TH OPERATION 
15TH OPERATION 
16TH OPERATION 
17TH OPERATION 
20TH OPERATION 
21 ST OPERATION 
22ND OPERATION 
23RD OPERATION 
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OJO 








/C7 
OJf 








/to 
055 








/CO 








oou 




001000 




OO 1 


UU1UUU 


012706 


000600 


OOc 


nni ftftt 

UU I UU*» 


012737 


000340 


DO J 


UU I U I c 


032737 


004000 


0O*» 


UU I UtU 


001374 




/LiL C 

OO J 


UU ! Uc<: 


013701 


000720 


/ z i 

000 


UU l U^O 


042737 


176377 


OO r 








ooo 








oov 








4. 7 ft 








4.71 
Or 1 








0' d 








41.77 

Of 5 


UU I Ujm 


012702 


000722 


L.7L 


nni f\Lf\ 


012737 


00001 1 




001046 

vv I v"w 


012703 


001440 


676 


001052 


012237 


000676 


677 


001056 


023723 


AAA/ ~t / 

000676 


678 


001062 


001422 




679 


001064 


005337 


000674 


680 


001070 


001372 





START: 



2$: 



C 2 



SEO 15 



*************************************************** 

* HOUSE KEEPING AND INITIAL PROGRAM PARAMETERS * 
*************************************************** 



MOV #600. SP 

MOV *340 c a#PSU 

BIT #*000.a#TRCOM 

BNE U 

MOV a#0PNUM,R1 

BIC #1 76377, MUNIT 



=1000 

;SET UP STACK AT L0C. 600 
;SET PRIORITY LEVEL 7 NO INTERRUPTS ALLOWED 
;VAIT FOR THE INITIAL 900 MS. POWER CLEAR TO SUBSIDE 
;L00P UNTILL CONTROL IS READY 
;R1 CONTAINS HOW MANY OPERATIONS WILL BE DONE 
; STRIP OFF EVERYTHING EXCEPT BITS 8 AND 9 TO SET UP UNI 



*********************************** 
* SET UP OPERATIONS, C0MPARIT0R * 



MOV #0PTBL,R2 

MOV #9..a#TEMP1 

MOV #LEGOPS.R3 

MOV (R2) *.a#TEMP2 

CMP a#TEMP2,(R3)+ 

BEQ CLINH 

DEC TEMPI 

BNE 2$ 



R2 CONTAINS THE POINTER TO THE START OF THE OPE RAT INS 
THE NUMBER OF LEAGAL OPERATIONS 

POINTER TO THE BEGINNING OF THE LEGAL OPERATIONS COMPA 

GET THE OPERATION AND PUT IT IN TEMP 2 

CHECK IT AGAINST THE LEGAL FUNCTIONS 

IF ITS LEGAL CONTINUE TO EXECUTE IT 

WASN'T THAT OPERATION SUBTRACT 1 

TRY NEXT ONE 
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681 

682 

683 

684 

68S 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 



001072 
001100 
001102 
001106 
001114 
001122 
001124 



001130 
001134 
001140 



001142 
001144 
001146 
001150 
00115' 
001 15* 
001156 
001160 



022737 000020 000676 
001402 

000137 001344 

052737 004000 164000 CRES: 

032737 004000 164000 3$: 
001374 

000137 001264 



005037 164002 
162703 001442 
060307 



000422 
000425 
000401 
000432 
000240 
000240 
000240 
000240 



CLINH: 



W: 

R: 

SR: 

ER: 

REVO: 

FFOR: 

IDB: 

WTM: 



D 2 



seo 16 



********************************* 

* CHECK FOR A CONTROL REScT * 



CUP #20.8#TEMP2 

BEQ CRES 

JMP ilJLFUT 

BIS #4000.TRCOM 

BIT #4000,TRCOM 

BNE 3$ 

JMP FUDONE 



SEE IF ITS A CONTROL RESET (PSEUDO OP) 

MUST BE A CONTROL RESET JUMP TO CRES 

IT MUST BE ILLEGAL FUNCTION STOP THE PROGRAM 

MUST BE A POWEH CLEAR SO DO IT TAKES 900 MIL I SECONDS 

SEE IF DONE WITH POWER CLEAR YET 

WAIT UNTILL DONE 

GET BACK INTO PROGRAM 



* CLEAR INHIBIT BIT AND SET UP CPERATION * 
********************************************** 



CLR a#TRSTAT 
SUB #LEGOPS*2,R3 
ADD R3,PC 



.-CLEAR OUT THE INHIBIT BIT 

;GET AN OFFSET VALUE 

;ADD IT TO THE PC AND GO THERE 



*********************************** 

* OPERATIONS DIRECTORY TABLE * 
*********************************** 



BR 

BR 

BR 

BR 

NOP 

NOP 

NOP 

NOP 



WRITE 
READ 
.♦4 
ERSE 



WRITE INSTRUCTION 

READ INSTRUCTION 

SPACE REVERSE INSTRUCTION 

ERASE COMMAND 

REWIND COMMAND 

FAST FORWARD COMMAND 

WRITE ID BURST 

WRITE TAPE MARK 



J 
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720 
721 
722 
723 
724 
725 
726 

727 001162 

728 001166 

729 001174 

730 001202 

731 001206 
732 

733 
734 
735 
736 
737 
738 
739 
740 

741 001210 

742 001216 

743 001220 

744 001226 

745 001234 

746 001236 

747 001244 
748 

749 
750 
751 
752 
753 
754 

755 001246 

756 001250 

757 001256 

758 001262 
759 



006337 000676 

053737 000702 

053737 000700 

005237 000676 
000417 



000676 
000676 



SG08: 



013737 000710 
000403 

013737 000706 
013737 000704 
000752 

013737 000712 
000746 



164006 WRITE: 

164006 READ: 

164004 WR1WC: 

164004 ERSE: 



000240 

013737 000676 
105737 164000 
100375 



164000 



EXECUT 
7S: 



E 2 



SEO 17 



***************** ******************** 
* SET UP UNIT NUMBER AND 60 BIT » 



ASL a*TEW>2 
BIS a*UNIT,8#TE*P2 
BIS a*EXTC0R,a#TEMP2 
INC a#TEMP2 

BR EXECUT 



SHIFT THE FUNCTION INTO THE PROPER BIT POSITIONS 

SET THE UNIT # BITS 

SET THE MEMORY EXTENSION BITS 

SET THE 60 BIT 

JUMP TO THE EXECUTION ROUTINE 



********************************* 

* OPERATIONS SETUP ROUTINES * 
********************************* 



NOV 


a*UADDR,a#TRBA 


•SET UP WRITE BUFFER AREA 


BR 


WR1WC 


•CONTINUE ON TO SET UP W.C. 


MOV 


a*RADDR.a#TRBA 


SET UP READ BUFFER ADRESS 


MOV 


a*VCNT,a#TRWC 


■SET UP WORD COUNT 


BR 


S60B 


SET UP 60 BIT 


MCV 


a#ERSCNT.a#TRUC 


•SET NUMBER TO INDICATE AMOUNT OF TAPE TO BE ERASED 


BR 


SGOB 


:SET UP 60 BIT 



******************************************** ************* 

* ROUTINE TO EXECUTE THE FUNCTION AND CHECK FOR DONE * 
********************************************************* 



NOP 

MOV a#TENP2.a#TRC0M 
TSTB a#TRC(W 
BPL 7$ 



;D0 THE FUNCTION 
;SEE IF DONE YET 
.-WAIT FOR IT 
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760 
761 
762 
763 
764 
765 
766 

767 001264 

768 001272 

769 001300 

770 001306 

771 001310 

772 001314 

773 001320 

774 001322 

775 001330 

776 001332 

777 001334 

778 001340 

779 001344 

780 001350 
781 

782 



013737 
013737 
032737 
001405 
006237 
013700 
000000 
032737 
001410 
000000 
000137 
006237 
013700 
000000 



164002 
164000 
040000 

000676 
000676 

100000 



001106 
000676 
000676 



000672 FUDONE 

000670 

000670 

ILLCOM 

ERR14 * 
000670 ERDONE 

ERR15: 

ILLFUN 
ILFUT: 
ERRIF: 



SFO 18 



* ROUTINE TO CHECK FUNCTION WHEN DONE * 



NOV 

NOV 

BIT 

BEO 

ASR 

NOV 

HALT 

BIT 

BEO 

HALT 

JNP 

ASR 

MOV 

HALT 



WTRSTAT ,i*STTEM 

a#TRCOM,a*COMTEM 

#40000. 8#C0MTEM 

ERDONE 

a*TENP2 

a*TEMP2.R0 

#100000, 3#C0MTEM 
OPDEL 

i#CRES 

»#TEMP2 

a#TEMP2,R0 



SAVE STATUS 

SAVE COMMAND RE6ISTER 

WAS IT AN ILLE6AL COMMAND DUE TO SEQUENCE OR TAPE POSI 

NO ERROR HERE 

STRIP OFF THE 60 BIT 

PUT BAD COMMAND IN RO 

STOP WITH BAD COMMAND DISPLAYED 
SEE IF ERROR BIT IS SET 
NO ERRORS CONTINUE 

GOT AN ARROR NOP THIS HALT TO CONTINUE 

IF YOU GOT AN ERROR ONLY RECOVERY IS WITH A CONTROL RE 

STRIP OFF GO BIT 

PUT THE BAD CODE IN RO TO DISPLAY WHEN HALTED 

GOT AN ILLEGAL FUNCTION CHECK YOUR PROGRAM LOCATION 72 
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783 






784 






785 






786 






787 






788 






789 


001352 


013737 


790 


001360 


013700 


791 


001364 


005300 


792 


001366 


001376 


793 


001370 


005337 


794 


001374 


001373 


795 


001376 


032737 


796 


001404 


001401 


797 


001406 


000000 


798 


001410 


005301 


799 


001412 


001001 


800 


001414 


000401 


801 


001416 


000137 


802 


001422 


032737 


803 


001430 


001401 


804 


001432 


oooooo 


805 


001434 


000137 


806 






807 






808 






809 






810 






811 






812 


001440 


000001 


813 


001442 


000002 


814 


001444 


000004 


815 


001446 


000007 


816 


001450 


000010 


817 


001452 


000013 


818 


001454 


00001 5 


819 


001456 


000016 


820 


001460 


000017 


821 







OPDEL: 
8$: 



INSHLT 



9$: 



PASHLT 
REST: 



LE60PS 



6 2 



• OPERATION DELAY BETWEEN INSTRUCTIONS * 



MOV a#0PDLX,8#TIMMUL 

NOV WOPDLY.RO 

DEC RO 

BNE 8S 

DEC WTIMMUL 

BNE 8S 

BIT #1 00000. SfSWR 

BEQ .+4 

HALT 

DEC R1 

BNE 9S 

BR .+4 

J MP WLOOP 

BIT #40000. 3#SWR 

BEQ REST 

HALT 

J MP WSTART 



SET OP OPERATIONS DELAY MULTIPLIER 

SET UP OPERATIONS DELAY TIMER 

TIMER IS TICKING 

GET MORE TIME 

COUNT DOWN THE MULTIPLIER 

GET MORE TIME 

TIMES UP CHECK SWITCHES TO SEE IF WE HALT OR CONTINUF 

DONT STOP NOW SKIP THE HALT 

STOP BETWEEN INSTRUCTIONS 

-1 FROM THE NUMBER OF OPERATIONS IN R1 

GO AND DO THE NEXT INSTRUCTION 

SKIP THE JUMP 

DO THE LOOP AGAIN 

CHECK SWITCHES TO SEE IF WE WANT TO STOP AT END OF PAS 

DO THE NEXT PASS SKIP THE HALT 

STOP BETWEEN PASSES 

GO DO IT AGAIN (NEXT PASS) 



* LEGAL OPERATIONS COMPARITOR TABLE * 
♦♦♦it********************************** 



00001 .-WRITE 

00002 .-READ 

00004 .-SPACE REVERSE 

00007 ; ERASE 

00010 ; REWIND 

00013 ;FAST FORWARD 

00015 ; WRITE IDB 

00016 .-WRITE TAPE MARK 

00017 .-OFFLINE 



CZTRBD.P1 1 



18-N0V-81 09:16 



322 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 



001462 
001466 
001472 
001 500 
001 506 
001510 
001516 
001522 
001524 
001532 
001536 
001542 



001462 

012706 000600 
012705 000500 



DRTN: 



012737 000340 177776 

032737 004000 164000 DROUTS 
001774 

013737 177570 000664 BR1 : 

105737 000664 

100372 

042737 177760 000664 

006337 000664 

006337 000664 

063707 000664 



H 2 



SEQ 20 



**»*»*•**»»»»*»»»»*»****»»*»*»»«»***• 

* DELAY SET-UP PROGRAM ROUTINES * 



.=1462 

MOV #600. SP 

MOV #500. R5 

hov #340.a#psu 

BIT #4000.a#TRCOM 

BEQ DROUTS 

NOV a#SWR,a#SWRTEH 

TSTB i#SURTEH 

BPL BR1 

BIC #1 77760, WSWRTEM 

ASL a#SWRTEM 

ASL 8#SWRTEM 

ADD a#SURTEH.PC 



SET STACK 

SET UP SUBROUTINE STACK 
SET PRIORITY 7 NO INTERRUPTS ALLOWED 
CHECK FOR INITIAL POWER CLEAR TO SUBSIDE 
WAIT TILL DONE 

GET SWITCHES AND PUT THEM IN STORAGE 

SEE IF ENABLE IS UP YET 

LOOP UNTILL ENABLE IS UP 

MASK BITS AND GET A NUMBER BETWEEN 0-16 

SHIFT IT LEFT TO MULTIPLY BY 2 

SHIFT AGAIN MULTIPLY BY 2 TO GET OFFSET 

ADD IT TO THE PC AND GO THERE 





pi 1 


t R-N0V-R1 


09-16 


















OHO 








O** ' 








OHO 








OH T 




















0001 37 

Www 1 J f 


001510 

WV 1 J 1 V 


R52 


001 552 

WW 1 J J c 


0001 37 

WWW 1 -J ' 


001646 

WW 1 w~w 




001 556 


0001 37 

WWW 1 J t 


001646 

WW ■ V~ V 


854 


001 562 

WW ■ 


0001 37 

WWW 1 ' 


001702 

WV I ' vt 


ass 


001 566 

WW ■ V WW 


000137 

WWW l ■/ • 


00 1 7S2 

WW ^ w 


R56 


001572 

vw 1 J ' C 


000137 

WW 1 J 1 


OO^JK 

WWw W I ~ 


RS7 


001 576 


000137 

WVW ■ J 


002014 

WWw W 1 ~ 


AS8 

W J W 


001602 

VV • VVL 


000137 

www I J • 


00201 4 

vvtv l ~ 


859 


001 606 

WW 1 www 


000137 

WWW ■ J • 


002150 

VV W 1 «■» v 


860 

uuv 


001612 

WV 1 w ■ c 


000137 

WWW 1 J ' 


002234 

Www — ' » 


861 


001616 

WV 1 w ■ w 


000137 

WWW 1 J' 


002234 

WW w w ~ 


862 


001622 

WW ■ Www 


000137 

WWW ' ' 


002354 


863 


001 626 

WW 1 WwW 


000137 

WWW I J ' 


002070 

V V w V • V 


864 


001632 

WW ■ W-/w 


000137 

WWW I ' 


001752 


865 


001636 

WW ■ w<^w 


000137 

WWW 1 J * 


002274 


866 


001642 


000137 


001510 


867 








868 








869 








870 









TABLE: J MP a*BR1 

J MP i#8R2 

J MP a«8R2 

JMP i#8R3 

J MP g«8R4 

JMP W8R5 

JMP a*8R5 

JMP 8*8R5 

JMP a#8R10 

JMP a*8R1 1 

JMP a*BR11 

JMP a*8R16 

JMP a*8R6 

JMP 8«8R4 

JMP i#8R14 

JMP a*8R1 



I 2 



INDEX TABLE OF DELAY PR06RAM DIRECTIVES * 



DELAY 0 IS A NO-OP 

DELAY 1 IS FOR POWER CLEAR 

DELAY 2 IS FOR POWER CLEAR 

DELAY 3 IS FOR ERROR CLK 

DELAY 4 IS FOR WRITE ENABLE 

DELAY S IS FOR OUT BUFF FLAG 

DELAY 6 IS FOR END WRITE DATA 

DELAY 7 IS FOR FIRST WORD WRITE REQUEST 

DELAY 10 IS FOR ERASE 

DELAY 11 IS FOR WRITE I.D.B. 

DELAY 12 IS FOR I.D.B. TIMING 

DELAY 13 IS FOR ABORT WINDOW 

DELAY 14 IS FOR LD CTRL ♦ BUSY 

DELAY 15 IS FOR GO PULSE DELAY 

DELAY 16 IS FOR M.S.D. DELAY 

DELAY 17 IS A NO-OP 
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875 001646 004537 002502 BR2: JSR 

876 001652 005000 CLR 

877 001 654 012701 000004 MOV 

878 001660 005300 BR2A: DEC 

879 001662 001376 BNE 

880 001664 005301 DEC 

881 001666 001374 BNE 

882 001670 105737 177570 TSTI 

883 001674 100764 BMI 

884 001676 000137 001510 JMP 



887 



890 001702 012700 000070 BR3: MOV 

891 001706 012701 000004 MOV 

892 001712 052737 004000 164002 BIS 

893 001720 005300 13$: DEC 

894 001722 001376 BNE 

895 001724 005037 164002 CLR 

896 C01730 005301 DEC 

897 001732 001372 BNE 

898 001734 105737 177570 TSTB 

899 001740 100760 BMI 

900 001742 004537 002502 JSR 

901 001746 000137 001510 JMP 



904 



907 001752 004537 002522 BR4: JSR 

908 001756 012737 }77777 164004 BR4A: MOV 

909 001764 012737 000017 164000 MOV 

910 001772 004537 002522 JSR 

911 001776 004537 002540 JSR 

912 002002 105737 177570 TSTB 

913 002006 100763 BMI 

914 002010 000137 001510 JMP 



J 2 



SEO 22 



* ROUTINE FOR DELAYS 1 AND 2 * 



R5.a#PCL ;D0 A POWER CLEAR 

RO .-CLEAR THE TIMER 

J4.R1 .SET TIMING DELAY MULTIPLIER 

RO .-TIMER IS TICKING 

BR 2 A ;VAIT TILL ITS DONE 

R1 ;ONCE THROUGH THE TIMING LOOP 

BR2A .-REPEAT LOOP IF MULTIPLIER IS NON ZERO 

9#SWR ;CKECK FOR A LOOP 

BR2 ;D0 IT AGAIN 

a#8R1 ;GET NEXT TEST 



* ROUTINE FOR DELAY 3 * 



#70. RO ;SET UP DELAY MULTIPLIER 

#4 X R1 ;SET TIMING DELAY MULTIPLIER 

#4000.8#TRSTAT .-FORCE AN ERROR WITH B.G.L. BIT 

RO .-TIMER IS TICKING 

13$ .-CHECK TIMER 

WTRSTAT ;0K NOW CLEAR THE BIT 

R1 ;ONCE THROUGH TIMING LOOP 

13$ .-REPEAT LOOP IF MULTIPLIER IS NON ZERO 

a*SWR ;SEE IF WE WANT TO DO IT AGAIN 

BR3 ;0K LOOP BACK 

R5.a#PCL .-DONE HERE DO A POWER CLEAR AND GET THE NEXT ONE 

W8R1 .-GET THE NEXT DELAY DIRECTIVE 



* ROUTINE FOR DELAY 4 AND 15 * 
********************************* 

R5,3#RDY ; CHECK FOR READY 

*-1,a*TRWC .-THIS NUMBER IS USED FOR AN ERASE COUNT 

#17,8#TRC0M ;D0 THE ERASE 

R5,i#RDY .-WAIT TILL DONE 

R5.WERCK ;SEE IF WE ERRORED OUT 

a*SWR ;SEE IF WE LOOPON TEST 

BR4A .-LOOP HERE AND DO IT AGAIN 

a*BR1 ;GET OUT AND GET NEXT DELAY DIRECTIVE 
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P1 1 


18-N0V-81 


09:16 










915 
















916 
















917 
















918 
















919 
















920 


002014 


004537 


002570 




BR5: 


JSR 


921 


002020 


005037 


164002 








CLR 


922 


002024 


012737 


177774 


164004 


BR5A: 


MOV 


923 


002032 


013737 


000710 


164006 






MOV 


92*. 


002040 


012737 


000003 


164000 






MOV 


925 


002046 


004537 


002522 








JSR 


926 


002052 


004537 


002540 








JSR 


927 


002056 


105737 


177570 








TSTB 


928 


002062 


100760 










BMI 


929 


002064 


000137 


001510 








JM° 


930 
















931 
















932 
















933 
















934 
















935 
















936 


002070 


004537 


002624 




BR6:. 


JSR 


937 


002074 


004537 


002654 




BR6C: 


JSR 


938 


002100 


005037 


164002 








CLR 


939 


002104 


005037 


164004 








CLR 


940 


002110 


012737 


000017 


164000 






MOV 


941 


002116 


005037 


164000 




BR6A: 


CLR 


942 


002122 


105737 


177570 








TSTB 


943 


002126 


100004 










BPL 


944 


002130 


105737 


164000 








TSTB 


945 


002134 


100370 










BPL 


946 


002136 


000756 










BR 


947 


002140 


004537 


002502 




BR6B: 


JSR 


948 


002144 


000137 


001510 








JMP 



K 2 



*************************************** 

* ROUTINE FOR DELAY 5 , 6 AND 7 * 
*************************************** 



SEO 23 



R5.a#0FLP 
WTRSTAT 
«-4,a*TRUC 
a*VADDR,a#TRBA 
«3,a*TRC0M 
R5.a#RDY 
R5,a#ERCK 

a#svR 

BR5A 
W8R1 



SEE IF UE ARE AT LOAD POINT 

CI EAR INHIBIT BIT 

SET UP FOR A 10 BYTE WRITE 

SET UP THE WRITE ADRESS BUFFER 

DO THE WRITE 

WAIT FOR READY 

CHECK FOR ERRORS 

SEE IF WE WANT TO LOOP 

LOOP HERE AND DO IT AGAIN 

GET OUT AND GET NEXT DELAY DIRECTIVE 



**************************** 
* ROUTINE FOR DELAY 14 * 



R5,a*REW 
R5.WETS 
WTRSTAT 
WRWC 

#17,a#TRC0H 
aiTRCOM 

a#swR 

BR6B 
a*TRCOM 
BR6A 
BR6C 

R5,i#PCL 
a*8R1 



DO A REWIND GET TO B.O.T. 
CHECK FOR END OF TAPE ANYWAY 
CLEAR THE INHIBIT BIT 
CLEAR THE WORD COUNT 
DO AN ERASE 
FORCE A LOAD PULSE 
SEE IF WE WANT TO LOOP 
ALL DONE 

SEE IF ERASE IS DONE YET 

NOT DONE DO ANOTHER LOAD PULSE 

DO IT AGAIN 

DO A CLEAR AND EXIT 

GO BACK TO MAIN 
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949 
950 
951 
952 
953 
954 

955 002150 004537 002654 BRIO: 

956 002154 004537 002570 

957 002160 005037 164002 

958 002164 012737 000017 164000 

959 002172 012700 005000 BR10A 

960 002176 012701 000004 

961 002202 005300 BR 108 

962 002204 001376 

963 002206 005301 

964 002210 001374 

96" 002212 005037 164004 

966 002216 105737 177570 

967 002222 100763 

968 002224 004537 002502 

969 002230 000137 001510 
970 
971 
972 
973 
974 



L 2 



SEO 24 



* ROUTINE FOR DELAY 
*********************< 



10 



R5,a*ETS 

R5,aroFiP 

aiTRSTAT 

#17 t arTRC0M 

#5000, RO 

#4,R1 

RO 

BR10B 
R1 

BR10B 
a#TRWC 

a#suR 

BR10A 

R5.arpa 
a*3Ri 



CHECT FOR E.O.T. 

GET US OFF LOAD POINT 

CLEAR INHIBIT 

DO A MAXIMUM ERASE 

SET UP COUNTER 

SET TIMING LOOP MULTIPLIER 

START COUNTDOWN 

TIMER IS TICKING 

ONCE THROUGH TIMING LOOP 

REPEAT LOOP IF MULTIPLIER IS NON ZERO 

RE ESTABLISH THE ERASE COUNT TO 0 

SEE IF WE LOOP HERE 

DO IT AGAIN 

DO A POWER CLEAR 

GET OUT AND GET THE NEXT DELAY DIRECTIVE 
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975 
976 
977 
978 
979 
980 
981 
98? 
983 
984 
985 
986 
987 
988 
989 
990 
991 
99? 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
100- 
1005 
1006 
1007 
1008 
1009 



002234 
002240 
002246 
00??52 
002256 
002262 
002?64 
002270 



002274 
002300 
00230? 
002306 
002314 
002320 
002324 
002332 
002336 
002342 
002344 
002350 



004537 002624 

012737 000033 164000 

004537 002522 

004537 002540 

105737 177570 
100764 

004537 002502 

000137 001510 



BR11 



105737 164002 
100407 

005037 164002 

012737 000027 164000 

004537 002522 

0C5037 164002 

012737 000027 164000 

004537 002522 

105737 177570 
100766 

004537 002502 

000137 001510 



BK14: 



BR14A 



n 2 



SEO 25 



»»»*»»**»*»**»»»»**»»»»***»******** 

* ROUTINE FOR DELAY 11 AND 12 * 



JSR R5.WREW ;D0 A REWIND 

MOV #33.*rTRCOH ;URI1E AN I.D.B. 

JSR R5.WRDY ; CHECK FOR DONE 

JSR R5. MERCK ; SEE IF ANY ERRORS UP 

TSTB WSUR .SEE IF WE WANT TO LOOP 

BMI BR11 ;LOOP BACK DO IT AGAIN 

JSR R5.WPCL ;DO A POWER CLEAR 

JMP 8#BR1 ;GET OUT AND GET NEXT DELAY DIRECTIVE 



***************************** 
* ROUTINE FOR DELAY 16 * 



TSTB i*TRSTAT .-CHECK FOR EOT UP 

BMI BP14A .-SKIP THE FAST FORWARD 

CLR WTRSTAT ; CLEAR INHIBIT 

MOV *27, ifTRCOM ;DO A FAST FORWARD 

JSR R5.a#RDY .-WAIT TILL DONE 

CLR WTRSTAT ; CLEAR INHIBIT 

MOV #27.i#TRCOM ; TRY A FAST FORWARD .SHOULD PPODUCE ERROR 

JSR R5,i*RDY ;WAIT TILL DONE 

TSTB a*SWR .SEE IF WE LOOP HERE 

BMI BR14A ;YES LOOP HERE 

JSR R5.8#PCL ;D0 A POWER CLEAR 

JMP »*8R1 ;GET OUT DO NEXT DELAY 



r 
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1010 
1011 
1012 
1013 
1014 



1015 


002354 


004537 


002624 




BR16: 


1016 


002360 


005037 


164002 






1017 


002364 


012737 


1 77000 


164004 




1018 


002372 


012737 


000017 


164000 




1019 


002400 


004537 


002522 






1020 


002404 


004537 


002624 






1021 


002410 


004537 


002570 






1022 


002414 


012737 


177760 


164004 


BR16A: 


1023 


002422 


012737 


003600 


164006 




1024 


002430 


005037 


164002 






1025 


002434 


012737 


000003 


164000 




1026 


002442 


012701 


000040 




BR168: 


1027 


002446 


005000 






BR16D: 


1028 


002450 


005200 






BR16C: 


1029 


002452 


001376 








1030 


002454 


005301 








1031 


002456 


001373 








1032 


002460 


004537 


002502 






1033 


002464 


105737 


177570 






1034 


002470 


100751 








1035 


002472 


004537 


002502 






1036 


002476 


000137 


001510 







1037 



N 2 



SEO 26 



ROUTINE FOR DELAY 13 



JSR R5.WREW 

CLR WTRSTAT 

MOV #1 77000, WTRWC 

MOV #17,a#TRC0M 

JSR R5,i#RDY 

JSR R5.WREW 

JSR R5.WWLP 

MOV #-20,a#TRUC 

MOV #3600,a#TR8A 

CLR WfTRSTAT 

MOV #3.*»TRC0M 

MOV #40.R1 

CLR RO 

INC RO 

BNE BR16C 

DEC R1 

BNE BR16D 

JSR R5,8#PCL 

TST8 a#SWR 

BMI BR16A 

JSR R5.a#PCL 

JMP a*BR1 



DO A REWIND 
CLEAR INHIBIT 
SET UP ERASE COUNT 
DO AN ERASE 
WAIT FOR IT 
REWIND IT 

GET OFF LOAD POINT LEGALLY 
SET UP W C 
SET UP CORE ADDRESS 
CLEAR THE INHIBIT 

NOW TRY TO WRITE NOTHING .SHOULD ABORT 

SET UP TIME MULTIPLIER 

CLEAR TIMER 

TIMES WAI STING 

TIMER RUNNING 

-1 FROM MULTIPLIER 

SEE IF DONE YET 

CLEAR ERRORS 

LOOP ??? 
DO IT AGAIN 
POWER CLEAR 
ALL DONE GET SOME MORE 
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1038 






1039 






1040 






1041 






1042 






1043 






1044 






1045 






1046 


002502 


052737 


1047 


002510 


032737 


1048 


002516 


001374 


1049 


002520 


000205 


1050 






1051 






1052 






1053 






1054 






1055 






1056 






1057 






1058 


002522 


105737 


1059 


002526 


100375 


1060 


002530 


042737 


1061 


002536 


000205 


1062 






1063 






1064 






1065 






1066 






1067 






1068 






1069 






1070 


002540 


005737 


1071 


002544 


100010 


1072 


002546 


012737 


1073 


002554 


105737 


1074 


002560 


100375 


1075 


002562 


004537 


1076 


002566 


000205 


1077 







RDY: 

164002 IHB: 



ERCK: 



ERCK1 



ERCK2: 



8 3 



SEQ 27 



********************************** 
* SUBROUTINE FOR POWER CLEAR » 



BIS #4000.i#TRCOM .SET POWER CLEAR 

BIT #4000,a#TRCOA ;WAIT FOR 900 MILI SECONDS 

BNE PCL1 ; STILL WAITING 

RTS R5 .'RETURN TO MAIN ROUTINE 



* SUBROUTINE FOR READY AND CLEAR INHIBIT 
************************ ********** ******** 



TSTB a#TRCOM 

BPL RDY 

BIC #1,i#TRSTAT 

RTS R5 



; CHECK ON DONE BIT 
.-WAIT TILL DONE 
; CLEAR THE INHIBIT BIT 
; RE TUN TO MAIN ROUTINE 



************************************** 

» SUBROUTINE TO CHECK FOR ERRORS * 
************************************** 



TST ifTRCOM ;SEE IF ERROR IS UP 

BPL ERCK2 ;N0 ERRORS JUMP OUT 

MOV #7.a#TTBUF ;GOT AN ERROR RING A BELL 

TSTB atTTSTAT .-WAIT HERE 

BPL ERCK1 .-WAIT HERE 

JSR R5.a#PCL .-CLEAR THE ERROR WITH A POWER CLEAR 

RTS R5 ;G0 BACK TO MAIN 



CZTRBD.P11 
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1078 








1079 








1 ADA 

1 080 








1 Afi1 

1 08 1 








1082 








1 AO T 

1083 








1 AO/ 

1 084 








1 AO C 

1085 


AA1C7A 

0025Y0 


AT"}777 


rtirtn/ rt 
000040 


1 086 


0025/ r o 


AA1 / 1 1 

001 nil 




1 08 f 


002600 


ArtCrt77 
00303f 


1 nr>3 
1 o4U0t 


1 AOQ 

1088 


rtrt3^rt/ 

00co04 


A1 0777 


AAAA77 

00003.5 


1089 


OOtoli 


Art/ 5 77 

00*0 


rtrt3?33 

00c 3 cc 


1 AHA 
1090 


OOcOlo 


rtrt£C77 

004 3.V 


rtrt3C/.rt 
00£3*»U 


1 AQ1 
1091 


002o<:2 


rtrtrtOrtQ 

000c03 




1092 








1093 








1094 








1 AAC 
1093 








1 AAI 

1096 








1 AQ7 
109f 








1 AOQ 

1098 








1 AAA 

1099 


00<0£*» 


rt73777 


t\(\r\(\L(\ 
OUUUhU 


1 1 AA 
I 100 




rtrtl rtrt7 

00 1 00 r 




I IUI 


rtrt3A7Z. 


rtrtCA77 


1 AArtn? 

I OH\J\JC 


1 1 0*: 


00CO4U 


rtl 3777 


rtrtrtrt3l 


1 103 


ArtOX/ X 


rtrt/ C77 


rtrt3»:33 

\j\jcjcc 


1 1 A/ 

1 104 


AAni c 0 


rtrtrton*; 
000^03 




1 1 AC 

1 105 








1 1 A^ 

noo 








1 1 rt7 

nor 








11 08 








1 1 AO 

1 10V 








1 1 1 A 

1110 


00co34 


1 rtC777 
103 Of 


1 AArtrtO 
I OhUUc 


1111 

I I I I 


UUcDOv 


10000? 

1 vvvvc 




1112 


002662 


004537 


002624 


1113 


002666 


000205 




1114 








1115 








1116 









0FLP1 



REUi : 
REU2: 

ETS: 
ETS1 : 



BIT 
BEO 
CLR 
MOV 
JSR 
JSR 
RTS 



BIT 
BNE 
CLR 
MOV 
JSR 
RTS 



TSTB 
BPL 
JSR 
RTS 



C 3 



SEO 28 



* SUBROUTINE TO GET OFF LOAD POINT LEGALLY * 



#40.a#TRSTAT ;SEE IF LOAD POINT IS UP 

0FLP1 ;N0 LP JUMP OUT 

■VTTRSTAT ; CLEAR THE INHIBIT 

#33,a#TRC0M ; WRITE AN I.D.B. 

R5.3#RDY ;UAIT FOR READY 

R5.ERCK .CHECK FOR ERRORS 

R5 ;G0 BACK TO MAIN 



SUBROUTUNE FOR REWIND AND L.P. 



#40.a#TRSTAT ;AT LOAD POINT?? 

REW2 .YES DON'T NEED REWIND 

WTRSTAT ;CLR THE INHIBIT 

#21.qWTRC0M ;D0 A REWIND 

R5.WRDY ;WAIT TILL DONE 

R5 ;G0 BACK 

***************************** 

* SUBROUTINE FOR E.O.T. • 
**t ************************** 

•VTTRSTAT ;IS END OF TAPE UP ? 

ETS1 ;NOT AT E.O.T. 

R5.WREW ;D0 A REWIND 

R5 ;GET BACK 



D 3 
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1117 
1118 
1119 
1120 
1121 

1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 

1166 000001 



E0 



WRITE BUFFER PATTERNS 



.=2700 
.REPT 
.WORD 
.ENDR 



.=3700 

.REPT 

.WORD 

.WORD 

.ENDR 



.=4700 

.REPT 

.WORD 

.WORD 

.ENDR 



1000 
000777 



1000 

000400 

000777 



1000 

000525 

000652 



;ALL rs 

.•PATTERN = 0 000 000 111 111 111 



I'S AND O'S ALTERNATE WORDS 
PATTERN = 0 000 000 100 000 000 
PATTERN = 0 000 000 111 111 111 



.■ALTERNATE BITS 

.PATTERN = 0 000 000 101 010 101 
.•PATTERN = 0 000 000 110 101 010 



.=5700 












• REPT 


1000 


-SLIDING 


1 


81 T 




.WORD 


000001 


•PATTERN 




o'ooo 000 000 000 


001 


.WORD 


000002 


•PATTERN 




0 000 000 000 000 


010 


.WORD 


000004 


•PATTERN 




0 000 000 000 000 


100 


.WORD 


000010 


;PATTERN 




0 000 000 000 001 


000 


.WORD 


000020 


;PATTERN 




0 000 000 000 010 


000 


.WORD 


000040 


;PATTERN 




0 000 000 000 100 


000 


.WORD 


000100 


;PATTERN 




0 000 000 001 000 


000 


.WORD 


000200 


•PATTERN 




0 000 000 010 000 


000 


.WORD 


000400 


•PATTERN 




0 000 000 100 000 


000 


.ENDR 













* READ BUFFER AREA * 
************************ 



.=6700 
.END 



; 1 000 WORD LOCATIONS RESERVED FOR READ BUFFER 
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CROSS I 


ALD 


000352 


586 


589* 




BEGIN 


000200 


549* 






BEGIN? 


000204 


550* 




851 


BR1 


001510 


835* 


837 


BRIO 


002150 


859 


955* 




BR 10A 


0021 72 


959* 


967 




BR10B 


002202 


961* 


962 


964 


BR11 


002234 


860 


861 


980* 


BRU 


002274 


865 


997* 




BR14A 


002320 


998 


1002* 


1006 


BR16 


002354 


862 


1015* 




PR16A 


002414 


1022* 


1034 




BR 166 


002442 


1026* 






BR16C 


002450 


1028* 


1029 




RR16D 


002446 


1027* 


1031 




BR? 


001646 


852 


853 


875* 


BR2A 


001660 


878* 


879 


881 


BR 3 


001702 


854 


890* 


899 


BR4 


001752 


855 


864 


907* 


BR4A 


001756 


908* 


913 




BR5 


002014 


856 


857 


858 


BR 5 A 


002024 


922* 


928 




BR6 


002070 


863 


936* 




BR6A 


002116 


941* 


945 




BR6B 


002140 


943 


947* 




BR6C 


002074 


937* 


946 




CLINH 


0C1130 


676 


702* 




COHTEM 


000670 


615* 


768* 


769 


CORBIL 


000230 


549 


551 


558* 


CRES 


001106 


689 


691* 


777 


OROUTS 


001500 


833* 


834 




ORTN 


001462 


588 


830* 




ER 


001150 


71 5* 






ERCK 


002540 


911 


926 


983 


ERCK1 


002554 


1073* 


1074 




ERCK2 


002566 


1071 


1076* 




ERDONE 


0C1322 


770 


774* 




ERRIF 


001350 


780* 






ERR14 


001320 


773* 






ERR 1 5 


001332 


776* 






ERSCNT 


000712 


624* 


746 




ERSE 


001236 


715 


746* 




ETS 


002654 


937 


955 


1110* 


ETS1 


002666 


1111 


1113* 




EXECUT 


001246 


731 


755* 




EXTCOR 


000700 


619* 


729 




FFOR 


001154 


717* 






FUDONE 


001264 


694 


767* 




I OB 


001156 


71 8* 






I HB 


002530 


1060* 






ILFUT 


001344 


690 


779* 




ILLCOM 


001310 


77}* 






ILLFUN 


001340 


778* 






JNSHLT 


00K06 


797* 






LEGOPS 


001440 


675 


703 


812* 


LOOP 


001040 


674* 


801 





851 866 884 



E 3 
- USER SYMBOLS 

901 914 



SEQ 30 



929 



948 



969 



987 1008 1036 



883 



920* 



774 



1070* 1090 



J 
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NORST C00356 550* 585 

OF LP 002570 920 956 

OFLP1 002622 1086 1091* 

OPDEL 001352 775 789* 

OPDLX 000716 626* 789 

OPDLY 0007K 625* 790 

OPNUH 000720 627* 665 

0PT8L 000722 633* 673 

PASHLT 00H32 804* 

PCL 002502 875 900 

PCL1 002510 1047* 1048 

PSW = 177776 513* 662* 

R 001H4 713* 

RAODR 000706 622* 743 

RDY 002522 907 910 

READ 001220 713 743* 

REST 001434 803 805* 

REW 002624 936 980 

REWO 001152 716* 

REW1 002634 1101* 

REW2 002652 1100 1104* 

SG08 001162 727* 745 

SLB 000302 574* 582 

SLBDON 000334 580 585* 

SLB1 000310 577* 584 

SR 001146 714* 

START 001000 589 661* 

SHEW 000672 616* 767* 

SUBSTK 000500 597* 

SWR = 177570 514* 795 

SyRTEH 000664 613* 835* 

TABLE 001546 851* 

TEW1 000674 617* 674* 

TEKP2 000676 618* 676* 

TIWUL 000666 614* 789* 

TRBA = 164006 506* 741* 

TRCOM = 164000 503* 663 

958* 981* 

504* 702* 

1060* 1085 

TRWC = 164004 505* 744* 

TT8UF = 177566 522* 1072* 

TTSTAT= 177564 521* 1073 

UNIT 000702 620* 666* 

mm 001026 666* 

y 001142 712* 

VADDR 000710 623* 741 

VCNT 000704 621* 744 

WRITE 001210 712 741* 

WR1WC 001226 742 744* 

WTH 001160 719* 

X1 000240 560* 

X2 000244 561* 573 

X3 000250 562* 567 

X4 000264 564 568* 

= 002670 536* 541 



TRSTAT= 164002 



F 3 

CROSS REFERENCE TABLE — USER SWBOLS 



SEC 31 



587* 
1021 



925 



805 



728 
923 



590* 
1085* 



947 968 
832* 



986 



1007 1032 1035 1046* 1075 



982 1001 1004 1019 1058* 1059 1089 1103 



1015 1020 1099* 1112 



747 



802 


835 


882 


898 


912 


927 


942 


836 


838* 


839* 


840* 


841 






679* 














677 


688 


727* 


728* 


729* 


730* 


756 


793* 














743* 


923* 


1023* 










691* 


692 


756* 


757 


768 


833 


909* 


1000* 


1003* 


1018* 


1025* 


1046* 


1047 


1058 


767 


892* 


895* 


921* 


938* 


957* 


997 


1087* 


1099 


1101* 


1110 








746* 


908* 


922* 


939* 


965* 


1017* 


1022* 



966 



771* 



924* 
1070 
999* 



984 



772 



940* 
1088* 
1002* 



1005 1033 



778* 



941* 
1102* 
1016* 



'79 

944 
1024* 



548* 596* 601* 61 2# 660* 



714 



796 



800 



829* 



CZTRDD.P1 1 18-N0V-81 09:16 



G 3 

CROSS REFERENCE TABLE — USER SYMBOLS 



ABS. 002670 000 



ERRORS DETECTED: 



CZTRBD/I,CZTRBD.SEQ/CRF/S0L/NL:T0C=CZTR8D.P11 
RUN-TIHE: 1 2 .2 SECONDS 
RUN- TIME RATIO: 6/4=1.4 
CORE USED: 16K (31 PAGES) 



